

    Public Class TagItem
        Public Sub New(ByVal name As String, ByVal weight As Integer, ByVal URL As String)
            Me._name = name
            Me._weight = weight
            Me._URL = URL
        End Sub

        Private _name As String

        Public ReadOnly Property Name() As String
            Get
                Return _name
            End Get
        End Property

        Private _weight As Integer

        Public ReadOnly Property Weight() As Integer
            Get
                Return _weight
            End Get
        End Property

        Private _URL As String

        Public ReadOnly Property URL() As String
            Get
                Return _URL
            End Get
        End Property
    End Class

